home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / New System Software Extensions / ColorSync™ 1.0.5 / Interfaces / PInterfaces / CMComponent.p < prev   
Encoding:
Text File  |  1994-04-11  |  3.5 KB  |  133 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        CMComponent.p
  3.  
  4.     Contains:    Headers for CMM components
  5.  
  6.     Copyright:    © 1993-94 by Apple Computer, Inc., all rights reserved.
  7.  
  8. }
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15. UNIT CMComponent;
  16. INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingCMComponent}
  20. {$SETC UsingCMComponent := 1}
  21.  
  22. {$I+}
  23. {$SETC CMComponentIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25.  
  26. {$IFC UNDEFINED UsingTypes}
  27. {$I $$Shell(PInterfaces)Types.p}
  28. {$ENDC}
  29.  
  30. {$IFC UNDEFINED UsingQuickdraw}
  31. {$I $$Shell(PInterfaces)Quickdraw.p}
  32. {$ENDC}
  33.  
  34. {$IFC UNDEFINED UsingComponents}
  35. {$I $$Shell(PInterfaces)Components.p}
  36. {$ENDC}
  37.  
  38. {$IFC UNDEFINED UsingCMApplication}
  39. {$I $$Shell(PInterfaces)CMApplication.p}
  40. {$ENDC}
  41.  
  42. {$SETC UsingIncludes := CMComponentIncludes}
  43.  
  44.  
  45. CONST
  46.  
  47. { CMM Components }
  48.  
  49. CMInterfaceVersion = 0;
  50.  
  51. { CMM Component function selectors }
  52. kCMInit = 0;
  53. kCMMatchColors = 1;
  54. kCMGamutTest = 2;
  55. kCMMatchPixMap = 3;
  56. kCMCheckPixMap = 4;
  57. kCMConcatenateProfiles = 5;
  58.  
  59.  
  60. { Profile Responder Components }
  61.  
  62. ProfileResponderInterfaceRev = 0;
  63.  
  64. { ProfileResponder Component function selectors }
  65. kCMGetProfile = 0;
  66. kCMSetProfile = 1;
  67. kCMSetProfileDescription = 2;
  68. kCMGetIndexedProfile = 3;
  69. kCMDeleteDeviceProfile = 4;
  70. kProfileResponderMaxSelector = kCMDeleteDeviceProfile;
  71.  
  72.  
  73. TYPE
  74.  
  75. ProfileResponder = ComponentInstance;
  76.  
  77.  
  78. { Required CMM Component routines }
  79.  
  80. FUNCTION CMInit(CMSession: ComponentInstance; srcProfile: CMProfileHandle;
  81.                 dstProfile: CMProfileHandle): CMError;
  82.     INLINE $2F3C, $0008, kCMInit, $7000, $A82A;
  83.  
  84. FUNCTION CMMatchColors(CMSession: ComponentInstance; myColors: CMColorList; count: LONGINT): CMError;
  85.     INLINE $2F3C, $0008, kCMMatchColors, $7000, $A82A;
  86.  
  87. FUNCTION CMCheckColors(CMSession: ComponentInstance; myColors: CMColorList;
  88.                        count: LONGINT; result: CMGamutResult): CMError;
  89.     INLINE $2F3C, $000C, kCMGamutTest, $7000, $A82A;
  90.  
  91.  
  92. { Optional CMM Component routines }
  93.  
  94. FUNCTION CMMatchPixMap(CMSession: ComponentInstance; myPixMap: PixMap;
  95.                        progressProc: PixMapCallBackProcPtr; refCon: LONGINT): CMError;
  96.     INLINE $2F3C, $000C, kCMMatchPixMap, $7000, $A82A;
  97.  
  98. FUNCTION CMCheckPixMap(CMSession: ComponentInstance; myPixMap: PixMap;
  99.                        progressProc: PixMapCallBackProcPtr; myBitMap: BitMap; refCon: LONGINT): CMError;
  100.     INLINE $2F3C, $0010, kCMCheckPixMap, $7000, $A82A;
  101.  
  102. FUNCTION CMConcatenateProfiles(CMSession: ComponentInstance; thru: CMProfileHandle;
  103.                                dst: CMProfileHandle; VAR newDst: CMProfileHandle): CMError;
  104.     INLINE $2F3C, $000C, kCMConcatenateProfiles, $7000, $A82A;
  105.  
  106.  
  107. { ProfileResponder Component routines }
  108.  
  109. FUNCTION CMGetProfile(myProfileResponder: ProfileResponder; aProfile: CMProfileHandle;
  110.                       VAR returnedProfile: CMProfileHandle): CMError;
  111.     INLINE $2F3C, $0008, kCMGetProfile, $7000, $A82A;
  112.  
  113. FUNCTION CMSetProfile(myProfileResponder: ProfileResponder; newProfile: CMProfileHandle): CMError;
  114.     INLINE $2F3C, $0004, kCMSetProfile, $7000, $A82A;
  115.  
  116. FUNCTION CMSetProfileDescription(myProfileResponder: ProfileResponder; deviceData: UNIV LONGINT;
  117.                                  hProfile: CMProfileHandle): CMError;
  118.     INLINE $2F3C, $0008, kCMSetProfileDescription, $7000, $A82A;
  119.  
  120. FUNCTION CMGetIndexedProfile(myProfileResponder: ProfileResponder; search: CMProfileSearchRecordHandle;
  121.                              VAR returnProfile: CMProfileHandle; VAR index: LONGINT): CMError;
  122.     INLINE $2F3C, $000C, kCMGetIndexedProfile, $7000, $A82A;
  123.  
  124. FUNCTION CMDeleteDeviceProfile(myProfileResponder: ProfileResponder;
  125.                                deleteMe: CMProfileHandle): CMError;
  126.     INLINE $2F3C, $0004, kCMDeleteDeviceProfile, $7000, $A82A;
  127.  
  128.  
  129. {$ENDC UsingCMComponent}
  130.  
  131. {$IFC NOT UsingIncludes}
  132. END.
  133. {$ENDC}